AAAAAAAAA HIIII111 LLL 
AAAAAAAAA III! LLL 
AAAAAAAAA HII LLL 
AAA ABA II] LLL 
AAA AAA III LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAK AAA II] LLL 
AA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA Ili LLL 
AMA AAA III LLL 
AAAAAAAAAAAAAAA III LLL 
AAAAAAAAAAAAAAA II] LLL 
AAAAAAAAAAAAAAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA IIIIIII11 LLLLLLLLLLLLLLL 
ABR AAA IIIIIIII1 LLLLLLLLLLLLLLL 
AAA AAA IIIIIIII1 


| 
LLLLLLLLLLLLLLL | 
| 
| 
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SSSSSSSS_ YY YY SSSSSSSS MM MM AAAAAA IIIII1 
SSSSSSSS_ YY YY SSSSSSSS MM MM AAAAAA IIIIII 
SS YY YY SS MMMM MMMM AA AA I] 
SS YY vY $$ MMMM MMMM AA Aa II 
ss YY YY SS MM MM MM AA AA II 
SS YY YY SS MM MM MM AA AA II 
SSSSSS YY SSSSSS MM MM AA AA II 
SSSSSS YY SSSSSS MM MM AA AA I] 
S$ YY SS MM MM AAAAAAAAAA II 
SS YY SS MM MM AAAAAAAAAA II 
SS YY SS MM MM AA AA II ee 
SS YY SS aM MM AA AA I] eee 
SSSSSSSS YY SSSSSSSS MM MM AA AA IIIII1 eeee 
SSSSSSSS YY SSSSSSSS MM MM AA AA III! eee 
LL III] SSSSSSSS 
LL III SSSSSSSS 
LL I] S$ 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL Il SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIIII SSSSSSSS 
LLLLLLLLLL HII] SSSSSSSS 


MAILSSYSMAI OPEN/READ/WRITE SYSSSYSTEM: VMSMAIL.DAT 18-Sep-19 4 ait $3: i VAX=11 Bliss-32 V4.0-742 1 
14-Sep-1984 12:42:35 DISKSVMSMASTER: [MA AIL. SRCJSYSMAI .B32; 1 ea 
MODULE MAILSSYSMAI ( ATITLE as Onn pe mITE SYSSSYSTEM:¥MSMAIL.DAT' 

IDENT = *V04-000" ) = 


BEGIN | 


' 
Lee eRe AAAA ARATE AAA AAA RAAT ARATE | 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
' DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


hl nee SOFTWARE IS FURNISHED UNDER A License AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE 
‘* IN tL USION OF THE ABOVE yl d hd oy 1k, THIS SOFTWARE OR ANY OTHER 
t COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
® 
* 
® 
x 
J 
® 
® 
® 
*® 
ie TRANSFERRED. . 
® 
® 
oa 
*® 
® 
® 
*® 
* 
*® 
* 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* eRPORAT bn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


pelolololelolelololololololololololelelelelolo) 
PIPMIPPININININID 2 2 OO OS SH OCOOOOOCOCOCO 


AUIS WN — O ODNOUS WN 0 ODNOUES WIN S(O OONAUE WN 


ix DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
'® SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR _ RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


Lee RRR RARE AERA RAAT EEA AAA AAA AAA 
' 


ooooo°cfo 
essssssssssssssssssssssssssssssssss 


Be Be Oe Se Se Be Oe Be Be Se Oe Be Ge Se Se BH Se Se Se BF Ss Se Se Ge FH Se SF Ss Ge oe Os Ose Se Os Se Se Oe Os Se Se Se Se Se Se Se Se Se Se Se Se Se SESH SH Se ee ee 
NOONE WD 0 OD NOUS WN 0 ODNOAU EWN (OOD NAU EWN “OO ONOAUS WN —OODONOUS WN 


oe oe ee ee ee ESS ST 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 2 

3 3 '+¢ 

; ; FACILITY: VAX/VMS MAIL UTILITY 

3 3 ! ABSTRACT: This module contains routines that deal with the 

; ; VMS MAIL data file, SYSSSYSTEM: VMSMAIL.DAT 

; ie ENVIRONMENT: NATIVE/USER MODE 

; Bo38 AUTHOR: Benn Schreiber, CREATION DATE: 13-Dec-1982 

: Obey MODIFIED BY: 

4 004 : v03-008 RoPeess Robert Posniak 09-Aug-1984 

4 004 : Make sure fogs ly allocated XABs are disconnected 

: oes from global F | 
4 0046 : v03-007 6.50255 Benn Schreiber 28-Dec-1983 | 
: poet New global flags 
4 0049 ! v03-006 BLS0266 Benn Schreiber 7-Nov-1983 

2 itt : Move new mail count into SYSSSYSTEM: VMSMAIL . *DAT | 
5 005¢ 1 | v03-005 BLS0225 Benn Schreiber 17-Jun-1983 
5 One } Break up file spec into fns=' VMSMAIL', dns='SYSSSYSTEM: .DAT’, 
: Boe so that a system logical name for VMSMAIL can be used. 
5 B29 ‘ v03-004 BLS0221 Benn Schreiber 5-May-1983 

5 05 : Correct SYSPRV handling 
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N 
OPEN/READ/WRITE SYSSSYSTEM: VMSMAIL.DAT 16-Sep-1984 01:23:17 VAX-11 Bliss-32 V4.0-742 Pa 

1o=8eb= 138s 93:23:45 | UNS lwSMASTERSCHAS SReaSYSMal.832:1°%° (15 

1! 

1! ¥03-003 BLS0220 Benn Schreiber 30-Apr-1983 

: } Add MAILSGET_DEV_DIR 

1 | v03-002 BLS0213 Benn Schreiber 21-Mar-1983 

: Don't report open error if just reading VMSMAIL 


DL aK SVMSMAS R: CMAIL. SRCISYSMAL. B32;1 (2) | 
' 


15 | 
MAILSSYSMAL OPEN/READ/WRITE SYSSSYSTEM:VMSMAIL.DAT 1bese -1984 01:23:17 1 BLiss-32 v4.0 3 MA 
v04-000 14 ety 7 12:4 o iE ~— ) vo 
TABLE OF CONTENTS 


LIBRARY oeeeetaneeny LIB"; 


70 REQUIRE ‘'SRC$:MAILREQ'; 

f} LIBRARY ‘LIBS: MAILDEF 

7 GLOBAL 

74 MAILSL_SYSMAIBUF: REF $BBLOCK, ! Pointer to VMSMAIL. oo buffer 
75 MAILSL_USRSYSBUF: REF $BBLOSK, ' Pointer to this user’ 
76 ' ymsmail record 

77 MAILST_SYSMAIFAB: $FAB_DECL, ' FAB for 1/0 

4. MAILST_SYSMAIRAB: $RAB_DECL; ! 

80 

81 BIND 

82 VMSMAIL_DESC = SDESCRIPTOR('VMSMAIL') : S$BBLOCK 

83 SYSEXE_BESC = SDESCRIPTOR('SYSSSYSTEM:.DAT') : $BBLOCK; 


OWN 


SYSMAIESS: $BBLOCKCNAMSC_MAXRSS]), 
SYSMAINAM: S$NAM_DECL; 


ESS for VMSMAIL 


NAM block for VMSMAIL 
EXTERNAL 


| 
and a RAB | 
| 
| 
| 
| 


UAF buffer 
String descriptor of username 


MAILST_UAF_BUFF : REF AEE, 
MAIL$Q- USERNAME: $BBLOCK 
MAILSGC_FLAGS : SBBLOCK;: 


Control flags 
EXTERNAL ROUTINE 


| 
LIBSGET_VM: ADDRESSING_MODE (GENERAL), ' Allocate virtual memory 
HAIL $GET_USER, ' Get UAF record | 


' 
' 
97 MAILSUP Ba ' Raise privileges 
98 MAILSDOQN_PRiV, ' and drop them 
99 STRSAPEEND ! String append 
STR Strin 


SCOPY DX, copy 
UTILSREPORT. 10_ERROR: ! Report 1/0 error 


| 
| 
; Define shared messages 
SSHR SOREE RAN, NS LM 


6) 
CORI TEERA WARNINGS 


and aah a cae ea a ee a ed 
S°osseSscs 
COnNOUE WMO 
hk kk kk kk a kk kd a 


TOTO O Cee e Tere rere re re rere ere rere ree re re ree rere eee re rerererere ere rere rege, 
oo 
~ 
vvv 
peewee olofofololololeleloelololeololelelelolololelolelololelololololeoleleolelolololo) 


oe 2 2 a 2 2 os os SS SS SY YS SS DS SS SS Ss SS SS SY I YS YH 


PERE EPA NWWWIWIDININININININININIDY 2 2 PS OO OS SS 
DONA UE WN O ODONOUSWN 0 OONAUES WN" ODOONOULSWN—O 


54 41 


+ he + Sata 
V04 -0 


pw ee ewe fw lef ofololololololololelolelolololololololololololololololo) 
OO CO 09 09 09 09 09 09 09 09 09 09 SI NINN SIENNA A AAAAAAAMMIMIUINIUIVG 
RM —OODNAVUVES WIN $9 OONAUES WN 0 ODNAOUV EWN OOONOULW 


PROPIPIPYIPYPINIPOPYNININININONIPINPIPUNPNPPPNyNynyonyd 


44 2— 3A 4D 


OPEN/READ/WRITE SYSSSYSTEM: VMSMAIL.DAT 1S-se a adds 9 9}: 


=NNPNNINNNNNNNNINNNNNNNNNNNNNINN — 3 3 Oe 
m -_ = z = 


14-Sep-19 
> ee ROUTINE MAILSUPDATE_SYSMAI_REC (RECBUF) = 
FUNCTIONAL DESCRIPTION: 
Write/update a new record in VMSMAIL for a user 
Inputs: 
: RECBUF = Address of record to write/update 


BEGIN 
RECBUF : REF $BBLOCK; 


LOCAL 
STATUS; 


MAILST_SYSMAIRABCRABSW_ Asti s Who LENGTH + .RECBUFCVMD_B 
yD 8. FNMLNG] + URECBUFE 
MAILST_SYSMAIRABCRABSL _RBFS 


4 
> 
be 
= 
wn 
ni 
< 
z 
—— 
a 
» 
ad 
=! 
" 
bee 
es a | 
“uu 


is 
aoY ‘daner. SYSMAIRABCRABSL _RBF I; 
ILST_SYSMAIRAB sy ee wR 


RAILST SySMAIRABLRABSV. UTFI 


If this is the user's record, save the latest copy 
IF .STA 
AND HA SEOL (VAD C_USERNAME ae T_USERNAME ] 
vMB__USER USRSYSBUFLVAD_ T_USER 
THEN CHSMOVE(. @fKitst RVEMAIRABER ABs 
T_SYSMAIRABCRABS eMaBe a.” 
mtg _USRSYSBUF ) ; 


RETURN .STATUS 
ND; 


] = MAILS 
STATUS = $PUT( aeeanitst SYSAATRAB, ERR= =UTILSREPORT_ I0_ERROR) ; 


TUS 
THEN STATUS = srisepneune-tuie,bt, Sineanel tenet anaredtl te banees 


-0-742 4) 
IL.SRCISYSMAI .B32; 479 * (3) 
| 


FWOLNGJ 
YMD_B_DIRLNG); 


NAME],%C* °) 


TITLE MAILSSYSMAI OPEN/READ/WRITF SYSSSYSTEM:VMSMAIL. 
IDENT \vV04-000\ 
PSECT S$CODES,NOWRT,2 
4C 49 41 4D 53 4D 56 00000 P.AAB: .ASCII \VMSMAIL\ : 
ai BLKB 1 
es 0008 P.AAA: .LONG 7 : 
9990099" 469 -ADDRESS P.AAB : 
45 54 53 59 53 24 53 BOTT P.AAD: .ASCII \SYSSSYSTEM:. -DAT\ : | 
0008 OOF 09020 P.AAC: .LONG 15 : 
000000 00024 -ADDRESS P.AAD : 
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MALL ERY SOHAL OPEN/READ/WRITE SYSSSYSTEM: VMSMAIL .DAT Se 01:23:17 VAX=11 Bliss-32 V4.0-74 


2 
12:42:35 | DISKSVMSMASTER: LMAIL.SRCISYSMAI.B32; ie 
.PSECT S$OWNS,NOEXE,2 
00000 SYSMAIESS: 
OOOFF -BLKB 1 
00100 SYSMAINAM: 
-BLKB 96 
-PSECT $GLOBAL$,NOEXE,2 
00000 MAIL$L ~SYSMAIBUF: : 
00004 MAILSL -USRSYSBUF : : 
00008 MAILST_ ~SYSHATFAB: : 
00058 MAIL$T_SYSMAIRAB: : 
.BLKB 68 
VMSMAIL_DESC= P.AAA 
SYSEXE BESC= P.AAC 
.EXTRN MAILS$T_UAF_BUFF 
.EXTRN MAIL$Q~ USERNAME 
~EXTRN MAILSGC FLAGS, LIBSGET_VM 
-EXTRN MAILS$GET_USER, MAILSUPE PRIV 
SEXTRN MAIL SBOUR PRIV, STRSAPPEND 
“EXTRN STRSCOPY_BX UTILSREPORT” 10_ERROR 
-EXTRN SYSS$PUT, ~SYSSFLUSH 


-PSECT $CODES,NOWRT,2 


O1FC 00000 ENTRY MAILSUPDATE_ SYSMAI_REC, Save R2,R3.R4,R5,- 
58 000000006 00 9€ 00002 MOVAB UTILS$REPORT_IO_ERROR, R8 
57 00000000' 00 9E 00009 MOVAB MAIL$T -SYSMAIRAB* +40, R7 
52 04 AC 00 00010 MOVL RECBUF R2 
50 43 A2 9A 00014 MOVZBL 6 (Re), RO 
51 42 A2 9A 00018 MOVZBL 66(R2). R1 
50 51 CO 0001C ADDL2 R11, RO 
51 41 A2 9A OOO1F MOVZBL 65(R2), R1 
53 44 A140 3 00023 MOVAB 68(R1) CROJ, R3 
FA A? 53 BO 00028 MOVW 3, MAIL$T.SYSMAIRAB+34 
67 52 00 0002c MOVL R2. MAILST SYSMAIRAB+40 
pc OA? 19 aa O00¢F BISB2 #16, MAILST_SYSMAIRAB+4 
08 AZ 67 DO 00033 MOVL MAILST UO SHRIRAB*GO,” MAILST_SYSMAIRAB+48 
FO A? 007E10D0 of DO 00037 MOVL #8261820, MAILST_SYSMAIRAB+24 
8 DD 0003F PUSHL R8 
D8 AZ 9F 00041 PUSHAB MAILS$T_SYSMAIRAB 
000000006 00 08 FB 0044 CALLS #2, Si SYSSPUT 
56 p 0048 VL. RO. STATUS 
pc OA? 10 8A 0004 BICB2 #16 MAILST _SYSMAIRAB+4 
28 56 £9 0005 LBC status, 
58 BD 005 PUSHL 
D8 AZ 9F 00057 PUSHAB RAILST oS YSMAIRAB 
werent OB S88 ALS Gs 3 
16 56 E9 00064 BLBC STAT Tus. 


~M 


Y +3 


vO 


MAILER YSAAL OPEN/READ/WRITE SYSSSYSTEM: VMSMAIL.DAT 18-Sep-1984 91: 23: i vere Ht Bliss-32 V4.0-742 face 


12-888 KSVMSMASTER: (MAIL. SRCJSYSMAI .B32; 1 (3 

5 84 «A? 67 MOVL MAILSL_USRSYSBUF, RO : 0286 
60 23 1F 23 0088 CMPC3) #31, (RD) RO) § 
O¢ 3 0 gf BNEQ 1$ 3 

51 67 00 00071 MOVL MAILST. fitsviad f R1 ; 0288 

50 84 AZ DO 00074 MOVL MAILSL_USRSYSBUF , ; 0289 
60 61 FA A? 28 00078 mOvC3 MAIL ST “SYSMAIRABS34, (R1), (RO) 5 

50 56 DO 00070 1$: MOVL STATUS, RO : 0291 

04 00080 RET ; 0292 


; Routine Size: 129 bytes, Routine Base: SCODE$ + 0028 
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GLOBAL ROUTINE MAILSOPEN_SYSMAI = 
BEGIN 
FUNCTIONAL DESCRIPTION: 


' 

i 

i 
Open SYSSSYSTEM:VMSMAIL.DAT for update. 
INPUTS: 

Static FAB/RAB 

OUTPUTS: 

i file opened. 

Buffer allocated, pointed to by MAILS$L_SYSMAIBUF 
ROUTINE VALUE: 

i 
i 
i 
i 


success if file opened 
fail if not 


XABKEYO: SXABKEY_DECL; 
Allocate a buffer to read/write from 


IF .MAILSL_SYSMAIBUF EQL 0 
THEN IF_ERR(LIBSGET_VM(ZREF (VMD_C_LENGTH+3*NAMSC_MAXRSS), 
MAILSL_SYSMAIBUF);, 
SIGNAL(.STATUS); RETURN TRUE); 
IF .MAILSL_USRSYSBUF EQL 0 
THEN IF LERR(LIBSGET_VACEREF (YAO C LENGTH+3*NAMSC_MAXRSS), 


SRSYSB - 
SIGNAL(.STATUS); RETURN TRUE); 
Initialize RMS data structures 


$FAB_INIT(FAB=MAILST_SYSMAIFAB, 
FAC=(GET,PUT-DEL,UPD), 
FOP=(CIF.CBT 
FNS=. VMSMAIL_DESCCDSC$W_LENGTH] 
DSCSA POINTER], 
DSC$W_CENGTH 
DSCSA_POINTERI, 


IL_DESC 
DNS=.SYSEXE Besct 
- SYSEXE_DESC 
SHR=(GET, PUT, DEL 
CTX=MAILS_OPENOUT, ee 
=IDX, 'Indexe 
RFM=VAR, ‘Variable Length records 


MAILST_SYSMAIFABLFABSV_LNM_MODE] = PSLSC_EXEC; 


2 
2 
2 
LOCAL 
STATUS, 
XABPRO: S$XABPRO DECL, 
! 
2 
2 


~o 


15 
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v04 14-Sep-1984 12:42:35 DISKSVMSMASTER: CMAIL. SRCJSYSMAI .B32; ;e * 


08 SNAM_ INIT (NAM=SYSMAINAM, 
ESS=NAMSC _MAXRSS, 


ESA=SY SMA ATE ESS 
RSS=NAMSC_MAXRSS, 
Reacevenalree)s 


vuvvD 


vuvuv 


WE ,RWE), ‘Owner and syetes access only 
éS, ‘Owner is (1,4] 
rH =XABKETO) ; 


SXABKEY_INIT(XAB=XABKEYO, 
KREF=0, 


vuvuvv 


| 
| 
| 
$XABPRO_ a Ub ty XABPRO, 
eee iy | 
Pos0=0, | 
ico 'Username is first 31 bytes | 


MAILST_SYSMAIFABCFABSL_XAB] = XABPRO; !Point FAB to the XAB chain 


i Open (or create) the file 

MAILSUP ftir pair crue SYSPRV),0); 

STATUS = CREATE (F AB=MAIL$T_SYSMATFAB,ERR=UTILSREPORT_IO_ERROR) ; 
MAILSDOUN® PRIV(); 


IF NOT .STATUS 
THEN RETURN .STATUS; 


| 
j 
| 
| 
SRAB_INIT (RAB=MAILST_SYSMAIRAB, | 
ROP=(RLKNLK) , 

| 

| 


KRF= 
KSZ=VAD C_USERNAME 
MAILSL_SYSMAIBUF, 
CO KenAILS OPENOUT 
FAB=MAIL$T_S ISMAIFAB 


5 | 
f 
: 
: 
5 
; RBF=. RAILST 
3 


09 09 G9 09 09 09 09 09 SII NI NSIS NNN PAPA AAA A MMMM 


vuuvvuVvUUUU 
SOOOSOOOCOOCOSCOOSOSCOOOSOOCOOCO OOOO COCO OCOCO COCO OCC OCOOOOOOCOOOOOOoOOoOoO 
CONAUE WN @O OONAUE WN $0 OONAUS WN (OOD NAUE AR SO OONAOUES WO 


PDAAAEQ® WAM & B&B EEE EEE EAN MAAN INI NNINININININ 2 2 OO OO SO 


WO OONOUEWN 0 OONOAUEWN (OC OONOAUE WN (ODD NOUSWN (“OOD ONOUS WN OO 


rer SCOMNECT RABEMAILST _SYSMAIRAB) ; 
AND Not UF «STATUS EQL RMS$_CRM 
THEN STATUS = (MAILST~ ren ALFABLF ABs GBC) = 
SCONNECT(RAB=MAILS$T ey SRATRAB) 5 


ELSE FALSE) 
THEN BEGIN 
yi ieetoin 10 gen $T_SYSMAIFAB); 

$C che ApeMalCsr 5 MAIF FAB: 


oowowowowowovnowowe 


END 
$T Perera: RABSL_CTX] 
L$T~SYSMAIFABLFABSL_XAB) 


Read the user record if it exists 


PIPIPOPIPIPINIPIPIPIPINININININININININININININPINININININI POP NIP NP noNnofononononyonononopofnopopnsperfponornyd 


WAILS_READERR; 


BREESE F&F FWA AAA AWWW AAA AAA AAAI AAA WIAA WIAA AAA. AAA AAA 


MAIL 
pe 
i 
i 
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OPEN/READ/WRITE SYSSSYSTEM: VMSMAIL.DAT je~3e0= 138% Oh eat tt VAX=11 Oi ieee 32 V4.0-742 9 
14-Sep-1984 12:42:35 DISKSVMSMASTER: (MAIL. SRCJSYSMAI .B32; ie * a) 


07 a -MAILSGL_FLAGSCMAIF _V_NETJOB) 


BEGIN maly 9. rat i LENGTH], .MAIL$Q eeu tet POINTER], 
C_USERNAME -MAILSL_USRSYSBUFLVMD_T_USERNAME J) ; 


i Read the record. i it doesn't glows 9 then initialize the buffer 
and write out the record for this user 


MAILST_SYSMAIRABLRABSL_KBF] = .MAILSL USRSYSBUF ; 


“RAILSL ~USRSYSBUF) 
END; 


_— TRUE 


Bete Se Se Se Ge SSeS Se Se Se Se Se Se Se Sees Sees ee Fe teas 
foalolelelelelealelelelelelelelelelealeleleleloleolo) 
Dl ek ae ek el ee el ee ae ee ek a el ek a ad 


? IF ge a ee SYSMAIRAB) 
4 IF .MAILST_SYSMAIRABCRABSL_STS] NEQ RMS$_R 
4 THEN RETURN UTILSREPORT_IO ERROR (MAICST VF evSM AIRAB 
4 CHSFILL(O,VMD_C -TENGTHSNARSE ane RSS-$BYTEOF git (VMD_W_ i LAGS), 
4 MAILSL USRSY SUF GMD W_FLAGSJ); 
8 ‘ MAILSUPDATE _SYSMAI WREC(. UBATLSL  USRSYSBUFY;~ 
8 ; ELSE CHSMOVE (. MAILST ceYSBArRaecRa $wW_RSZ], 'Copy/save this user 
; MAICS AIRABL RASS. RBF 
1 


2.09 00 09 9 09 090909 SII III INN On Or OO 
DBNAUESWN —OODONAULSWN—ODOONOU 


SRMS_PTR= MAILST_SYSMAIF AB 
$RMS_PTR= SYSMAINAM 
SRMS_PTR= MAILST_SYSMAIRAB 


-EXTRN SYSS$CREATE, SYSSCONNECT 
TEXTRN SYSS$CLOSE, SYSSGET 


OFFC 00000 ENTRY NAIL SOPEN -S1SMAL. Save R2.R3.R4.R5.R6.R7.- ; 0293 
5B 000000006 00 9€ 00002 MOVAB Pe cET : 
5a 000000006 00 9€ 00009 MOVAB OTe sePoRt 0. ERROR, R10 : 
59 FFF CF 9E 00010 MOVAB VMSMA RO : 
58 00000000' 00 9€ 00015 MOVAB sans PTR. : ee" : 
57 00000000" 00 9€ 0001¢ MOVAB $RMS~PTR. R7 ; 
5E FF58 cE 9E 000 MOVAB -168TSP). SP : 
F8 A DS 00028 TSTL MAILSL_ SYSMAIBUF : 0323 
1 12 00028 BNEQ 1s : 
F8 A 3 6° PUSH MALLSL SY 1S maa : 0326 
04 AE 0341 BF 3¢ MOV ZWL : 
04 AE 9F 000 PUSHAB ie SP : 
6B Q FB 00039 CALLS #2, LIBSGET _vM : 
17 E9 0003Cc BLBC Os : 
:. D3 OO3F 1$: TSTL MAILSL * USRSYSBUF : 0327 
3 12 00042 BNEQ : 
FC OA? OOF 00044 PUSHAB MALL SL USRSYSBUF > 0330 
04 AE 0341 BF 3¢ 00047 MOVZWL #833, &(SP) : 
04 AE OF O40 PUSHAB 4(SP5 ; 
6B FB 30 CALLS #2 L 1BSGET_VM : 
0c E 09 BLBS TATUS, 3$ : 
DD 000 é 2$ PUSHL  STATU : 
000000006 00 01 FB 0005 CALLS #1, LIBSSIGNAL : 


EEE 


. 
. 
. 
7 
e 
. 
o 
. 
a 
. 
. 
. 
a 
. 
Oo 
. 
ao 
. 
e 
. 
e 
- 
a 
. 
re 
. 
. 
“ 
e 
. 
. 
. 
e 
7 
° 
a 
° 
. 
a 
+ 
° 
. 
e 
. 
e 
- 
o 
7 
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. 
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15 
MAILSSY SMAI OPEN/READ/WRITE SYSS$SYSTEM: VMSMAIL.DAT 14. -Sep p-1984 01 :23: Y VAX=11 Bliss-32 V4.0-742 ge 10, 
v04 14-Sep-1984 1 5 _ DISKSVMSMASTER: CMAIL. SRCJSYSMAI .B32; ie (4) 
01¢0 31 005F BRW 9$ ; | 
0050 8F 00 6E : C si 3$: MOVCS #0, (SP), #0, #80, SRMS_PTR ; 0346 
67 5003 F BO 6A MOVW #20483, $RMS_PTR : 
04 ay 02200900 F i Goer MOVL #8651 $34, esas PTR+4 ; 
14 Rr OF OF 000A BF OD 0078 MOVL @ FBsti S80) $RMS_PTR+20 : | 
18 07E10A0 8F DO 0008 MOVL @# a a $rmS_PTR+2 : 
es i a ee : 
C A? 8 DO 00093 MOVL vAgMATL Beecea. ann PTR+44 : 
$6 A7 18 Ag 8 ad MOVL SYSEXE nitty S_PTR+48 : 
a FC AQ 009¢ MOVB VMSMAIC_D sins Serres : 
35 «COA? 14 AY 90 O00A1 MOVB SrSEKE BE Be Est. S_PTR+53 5 
6A AT 02 00 01 FO 0006 INSV AIST. ST SMALE ABS74 > 0348 
0060 8F 00 6E 09 2c 900A¢ MOVCS #0. tsb)" “io #56, ~S$RMS_P ; 0354 
68 6002 8F BO 000B4 MOVW #24578, $RMS_PTR : 
02 A8 01 8€ 00089 MNEGB #1, $RMS_PTRT : 
Broo GB See Raa SNES, erg rT : 
OC AB FFOO C8 9éE 000C7 MOVAB SYSMAIESS, $RMS_PTR+12 ; 
0058 = 8F 00 6E me 00 2¢ 900¢D mMovcS #0, (SP), #0, 788. $RMS_PTR ; 0360 
50 AE 5813 8F BO 00006 MOVW #22547, $RMS_PTR : 
3 OM 88 BE 98 bones ROVAB KABKEYO, | SRAS PTRes 
5C AE 00010004 8F DO O00E6 OVL #65546, SRMS_PTR+12 ; 
0046C 8F 00 6E en 00 2¢ QOOEE MOVCS #0, (SP), #07 #76, SRMS_PTR ; 0366 
04 AE 4C15 8F BO 000F7 MOVW #19477, SRMS_PTR : 
32 AE 7 SF 96 oo100 Bote SNS SIRS Brneag 
24 «OA? 50 AE 9E 00104 MOVAB XABPRO, SRILSt _SYSMAIFAB+36 + 0368 
10000000 bE bp ootoB SUSHL  #268435456 aera 
000000006 00 02 FB 00111 CALLS #2, MAILSUP_PRIV : 
ooooo000e 00 2 8 03 ee a911¢ CALLS Ac SYSSCREATE = 
1 MOV , : 
000000006 36 00 re $01 6 CALLS #0. MAILSDOWN _PRIV > 0374 
% 2 ae Ba 
4 001 RET : : 
0064 8F 00 6E = 00 se 091 4$: mOVcS #0, (SP), #0, #68, $RMS_PTR ; 0389 
50 A? 4401 8F BO 801 p MOVW #17409, $RMS_PTR : 
54 a7 00180000 a DO 14 MOVL #1572864, SRAS_PTR+4 ; 
68 A7 OO7E10A0 8F Bo 14 MOVL #8261792. sins PTR+24 : 
$F on BBM © Be eM ee 
50 FB AZ DO Ee MOVL MAILS$L SYSRAIBUF , RO : 
7% «A? 0 oO 00161 MOVL RO, $RAS_PTR+ : 
78 «A? 30 D a01e3 MOVL RO. $RMS~PTR+4 : 
0080 C7 0 3 169 MOVL R SRMS PTR+4 ; 
0084 C7 iF 00166 MOVE #31, $RMS_PTR+52 : | 
008 ¢7 67 9E 001 MOVAB MAILST_SYSMAIFAB, SRMS_PTR+60 : | 
| 


OPEN/READ/WRITE SYSSSYSTEM: VMSMAIL .DAT 


000000006 


0001C14C 


000000006 


000000006 


68 
5B 000000006 


1F 20 
0080 
000000006 
00018282 
8F 00 
FD6C 
60 


36 
sr 


00 


50 


we 
ooo 


A7 007E1080 
24 


00 


50 000000006 


56 


60 000000006 


C7 
00 


er 
6A 
56 
6E 


CF 


Moun 
o-o— 


; Routine Size: 550 bytes, Routine Base: 


50 


58 
50 


FC 
1F 


78 
FC 
72 


SCODES + OOA9 


VAX=11 Bliss-32_ V4.0-74 


3. ie 1984 2 
4- 733p-198e 3: 3:45 DISKSVMSMASTER: CMAIL. SRCJSYSMAI .B32; :" 


PUSHAB MAILS$T 
CALLS #1, SYSSC 
STATUS, 6$ 
STATUS, #115020 
MAIL$T ~$YSMALFAB+72 
a“. SYSSCONNECT 
STAT us 


2 eae gah 


ie 1 larceny 


POOF OROMOMUMUIO YS Pb -NM0 
NOM NM NM NOOR NNO OO 


MAILS$Q_ “USERNAME,” 
R6 artes SYSMAIRAB+48 
YSMAIRAB 


So 
ao 


wio 
NO 


Bil _SYSMAIRAB+8, #98994 


Al IRAB 
, UTILSREPORT_IO_ERROR 
BAILS. USRSYSBUF 
, #0, 4292" £51(R6) 
, MAILSUPDATE_SYSMAI_REC 
MAILST_ SYSMAIRAB#+40 R1 
MAILST SO EMATRABS 3c 


NNN -OOON OHNO 


OorrroourIror OFOr\U'IOCPY 
oonNeog-"95 NIOTO-OMTOT NMUIUIMIIO- "SO NOMO"OW-OoMon"Wwo 


fFowoo Do OOF tw -wown"o MOOCoflo—WIWIWwOO 7 Sn—Wwoown 
COOOCCOCOCOOOCOOOOCOCOCOCOO OOOO OOOOOOOOOOOOOOOOOOOO 
wwf eiefolelelololeloloelolelolololololololeleololaelolelelololololololololo) 
POPIPIPIPOIPOPOPYNUD) 2 2 
MM |] “DOCS NAN MMMMMNOCIOCOWWWWI>Yr yr Yr Yr rOwWwO 


Se Se Se Ge Ge Se Se Se Be Se Se Ge Se Be Fe Se Se Ge Se Fe Se Ge Fe Se Fe Ge Ge Fe Fe Fe Ge Ge Fe Be Be Se Ge Be Be Ge Ge Be Be 


VINIS OQVIANMO SWFMDOOM BD &-OMuMVrn LW OO Lemar 


BISARUN AS SOVEARANLSSHVS ARUN SOSHURAR GIO SO WS 


Be Se Se Se Ge Se Se Se Se Ge Se Se Se Fe Se Ge Ge Se Se Ge Ge Ge Ge Ge Se Se Ge Se Se Gs Se Ge Se Se Se Oe oe Se Se 4 Ss Se Se SH Ss Se Seeese 
WANA WIAANAIWAA AAAI AANA AAAI 


Ww 


OPEN/READ/WRITE SYSSSYSTEM:VMSMAIL.DAT 


4 
4 
4 
4 
4 
4 


SoOooooooco°oo 
Dt ek et et et et et et et 
COUMMNAMA 
SOOONO UE wh 


0461 


K 15 

16-Sep-1984 01:23:17 VA 
19-808- 1382 04:23:40 DI 
LOBAL ROUTINE MAILSCHECK FORW(NAME_DESC,DATABUFFER) = 


+4 
FUNCTIONAL DESCRIPTION: 


G 
8 
' 
i 
i 
i 
in SYSSSYSTEM:VMSMAIL.DAT 

; INPUTS: 

NAME _D 6 ag he of string descriptor for user name 
' 
i 
i 
i 
i 
i 
i 
' 
i 
i 


-DESC = 
DATA_BUFFER = Address of a buffer t 
MAILSL_SYSMAIBUF will be used. 


OUTPUTS: 


If found, the buffer pointed to by DATA_BUFFER contains 
the record. 


ROUTINE VALUE: 


: True if name is forwarded 
False if not 

BUILTIN 

NULLPARAME TER; 


MAP 
NAME_DESC : REF SBBLOCK, 
DATA_BUFFER : REF $8BLOCK; 


LOCAL 
BUFPTR : REF $8BLOCK, 
STATUS; 


IF NOT NULLPARAMETER(2) 
THEN BUFP A BUFFER 
ELSE BUEPTR = :MAILSL SYSMALBUF ; 

CHSCOPY (.NAME_DESCCDSCSW LENGTH], . NAME 


DESCCOSCSA_POINTER], 
AME, .BUFPTR) ; 


FPTR; 

MAIL$T~SYSMAIRABLRABSL_KBF) = BUFPTRLVMD_T_USERNAME); 

MAILST~SYSMAIRABLRABSV_NLK] = TRUE; 

IF NOT~$GET(RAB=MAIL$T~SYSMAIRAB) 
THEN RETURN 0; 


RETURN (.BUFPTRCVMD_B_FWDLNG) NEQ 0); 


57 00000000° 
02 


2 V4.0-742 Pag 
:CMAIL.SRCISYSMAI .B32;1 


This routine checks if the named user has forwarding enabled 


o read record in to (If not given, 


Save R2,R5,R4,R5,R6,R7 


15 | 
MAILSSYSMAI OPEN/READ/WRITE SYSSSYSTEM: VMSMAIL.DAT 1b-se -1984 01:23:17 VAX=11 Bliss- =32 V4.0-742 ge 13. 
y04t000 127308- 138 03:23:40 DISKSVMSMASTER: CMAIL. SRCJSYSMAI .B32; (3 = 
0B iF ¢ BLSSU ‘1 
08 A p TSTL 8(AP) 
0 BEQL 46=s«1$ 
56 08 7 p MOVL DATA. BUFFER, BUFPTR 0467 
oe HRB it: fan Rus creme. een sis 
1F 20 04 80 65 Be MOVCS (RO)> aa #32, #31, (BUFPTR) 
7¢ «OAT 58 DO 000 MOVL - BUFPTR, MAILST_ $YSMAIRAB* 36 
0088 C7 6 D0 000 B BUF IL 
— A? 19 8 09 BISB2 #16, MAIL$ RABS 047 
58 (A? OOF PUSHAB MAILST. Sy SHRTRAB 0474 
000000006 00 gi FB 00037 CALLS i. I. $x $GET 
OA 0 £9 0003E BLBC 
50 D4 99041 CLRL 0477 
43 Ag 95 00043 TSTB 67 (BUFPTA) 
05 13 00046 BEQL 6 4$ 
50 06 00048 INCL RO 
04 0004A RET : 
50 04 00048 3$: CLRL ~—_ RO : 0479 
4 0004D 4$: RET : 


TMHAAAAAAMMMMMMMMMMMmw 


ss 


@ 
m 


; Routine Size: 


SCODES + O2CF 


wv 
“ 
» 
> 
= 
> 
nw 
Zu 
>~< 
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>= 
a 
z 
P 
@ 
~ 
, 
oo: 

Be Se Se Se Se Ge Ge Se Ge Ge Se Se Ge Se Se Fe Se Fe Se Se Se & 
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KE 
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M15 
MAILSSYSMAI OPEN/READ/WRITE SYSSSYSTEM: VMSMAIL.DAT 16-Sep-1984 01:23:17 ~VAXe11 Bliss- -32 v4.0-742 14 $ 
iret 1o-308= 1382 93:23:48 DISKSVMSMASTER: CMAIL. SRCISYSMAL.B32; ? “ (6) : 
; 9 ‘ 9 ' GLOBAL ROUTINE MAILSGET_SYSMAI_REC(NAME_DESC,RECBUF) = : 
3 4g 4B¢ 1 | FUNCTIONAL DESCRIPTION: $ 
; is acs : Read the record from VMSMAIL.DAT for the named user : 
: 5 $¢ § 1 | INPUTS: b 
: 3% O48 1 i | $ 
: 348 488 1! NAME DESC = Address of descriptor for username $ 
; 9 0489 1! RECBOF = Address of buffer to return record in $ 
3 50 0490 1! $ 
; 2 491 1 i-- | 4 
; é 49¢ BEGIN | 3 
; 35 049 LOCAL $a 
; 354 0494 STATUS; $ 
: 55 0495 $ 
; 336 049 E DESC : REF S$BBLOCK, $s 
: 37 0497 RE CBOE : REF $BBLOCK; $ 
: 338 0499 2 CHSCOPY(.NAME_DESCCDSCSW mt .NAME_DESCCDSC$A_POINTER), $ 
; 360 0500 VM AME, .RECBUF); | $ 
: 361 0501 2 MAILST_SYSMAIRAB rRABS $._08 .RECBUF ; 5 
; 362 990¢ MAIL$T~SYSMAIRABLRABSL ~ (er a = RECBUFLIMD_ T_USERNAME); $ 
; 36 050 MAIL$T~SYSMAIRABLRABSV_NLK] = | 3 
; 364 9304 STATUS = $GET(RAB=MAILST_ SYSMAI RAS ; $ 
: 366 0506 RETURN STATUS $ 
: 367 0507 1 END | $ 
$n 
% 
5 
007c 00000 .ENTRY MAILSGET_SYSMAI REC. § Save R2,R3,R4,R5,R6  ; 0480 $ 
56 00000000' 00 9€ 00002 MOVAB MAILST SYSMAIRAB ; $ 
50 04 AC 00 00009 MOVL.  NAME_DESC, RO : 0499 5 
1F 20 04 80 ss 60 2c 9000p MOVCS  (RO)> a4(RO), #32, #31, @RECBUF + 0500 $e 
66 08 AC v0 00015 MOVL = RECBUF, MALLST _SYSMAIRAB+36 : 0501 & 
0c Ab 08 AC 00 00019 MOVL RECBUF, MAIL$T~SYSMAIRAB+48 : 050 $ 
E2 Ab 10 88 0001 BISB2 #16, MAIL$T_SYSMAIRAB+6 : 050 4 
DC «(AG OOF 9002 PUSHAB MAILS$T SYS SMAIRAB : 0504 
000000006 00 01 FB 000 CALLS #1, SYSSGET ; 
04 0002C RET : 0507 


; Routine Size: 45 bytes, Routine Base: S$CODE$S + 031D 


MAILSSYSMAL OPEN/READ/WRITE SYSSSYSTEM: VMSMAIL.DAT 3 -1984 :17 = VAX-11 Bliss-32 v4.0-742 15 
Moet 880 16- att ie a tS a 
; 9 9 } GLOBAL ROUTINE MAILSGETLK_SYSMAI_REC (NAME_DESC, RECDESC) = 
; a1 FUNCTIONAL DESCRIPTION: | 
: 1 0318 : Read and lock the designated record in VMSMAIL | 
: 375 514 1! | 
s 376 0515 1 ! INPUTS: | 
: 377 0316 13 
; 78 051 1! NAME DESC = Address of dence iptor for username | 
: 94 Bele : RECDESC = Address of descriptor to return record descriptor in 
: 381 $238} i. | 
: ge 0521 BEGIN 
3 8 05 ¢ 
3; 384 05 NAME_DESC : REF S$B8BLOCK 
; 385 0524 RECDESC : REF VECTORL, LONG); 
; 386 0525 
3; 387 05 g LOCAL 
; 388 05 COUNTER, | 
3; 389 0528 STATUS; 
3 300 0529 
Z 91 0530 LITERAL 
; 39 0531 RETRY_RLK = 10, ' mumber of retries for a locked record 
3 aor Baeg SLEEP_RLK = 75; ! ms to sleep before retrying 
: 395 0534 ND 
: 39% 0335 WAKEDELTA = UPLIT LONG(-10*1000*SLEEP_RLK,-1); 
: ga39 CHSCOPY(.NAME_DESCCDSCSW LENGTH]. NAME DESCLDSCSA POINTER], 
5 0538 .VMD_C_USERNAME, .MATLSL_SYSMAIBUF); 
; 0539 MAILST_SYSMAIRAB RABSL _0BF] = .MAILSL SSARIBUF 
: 0540 2 MAILST~SYSMAIRABLRABSL-KBF) = MAILSL «SY SRALGUFEVMD. T_USERNAME J; 
: 0541 MAILST SYSMAIRAB RABSV_NLK] = FALSE; 
; 0942 UNTER = RETRY_RLK 
: 054 Ontte ((STATUS = $GET(RAB=MAILST ~SYSMAIRAB)) EQL RMS$_RLK) 
: 0544 3 AND ((COUNTER = .COUNTER™= 1) 
: O36 3 DO IF SSCHDWK(DAYTIM = WAKEDELTA) THEN SHIBER; 
: 0547 2 IF NOT .STATUS | 
: 0368 THEN RETURN .STATUS; 
; 0550 RECDESCCO] = .MAILST_SYSMAIRABLRABSW_RSZ); 
; 0591 RECDESCC1) = .MAILSTSYSMAIRABLRABSL_RBF I; | 
: 0358 RETURN .STATUS 
554 END; 
00344 .BLKB 2 
FFFFFFFF FFF48E5O 0034C P.AAE: .LONG -750000, -1 : 


WAKEDELTA= P.AAE 
EXT SYSSSCHDWK, SYSSHIBER | 
MAILSGETLK_SYSMAI_REC, Save R2,R3.R4,R5,R6.-; 0508 | 


0OFC 00000 -ENTRY 


—CO*MNIODZ®SES ACH TO *MIOCWV!™SSl ACOH TO *MIOOZ Sl ACK ILO MVOOOZ Sr ACK TO *MIOW 


B 16 
16- 


MAILSSYSMAI OPEN/READ/WRITE SYSSSYSTEM: VMSMAIL.DAT Sep- 138% 9}: ea! i VAX=-11 $-32_V4.0-742 ge 16 
v04-000 14- ~Sep- 984 12:42:35 DISKS$V men TER: (MAIL. SRCISYSMAI .B32; ? (7) 


R7 ; 
7 00000000" 00 9 902 MOVAB MAILSL SYSMAIBUF, R7 ; 
0 04 aC D0 0000 MOVL DESC, RO : 0537 
6 6 p 00D MOVL MA Ist Sy SMAIBUF : 0538 
1F 20 04 80 60 C 9910 MOVCS (RO), @4(RO), W832, Rest, (R6) : 
7c «OA? 8 DO i9 MOVL RS, MAILST_ SYSMAIRAB+3 > 0539 
0088 C7 36 BO 18 MOVL  R6, MAILST~SYSMAIRAB+4 : 0540 
SE A? 1 A BICB2 #1 > MAILST SYSMAIRAB+6 : 0541 
53 OA DO 00024 OVL * COUNTER 5 0348 
58 «=A? «OF 00027 1$ PUSHAB MAILS! ae > 054 
000000006 99 gi FB 00 A CALLS #1, ; 
0 D 1 MOVL RO, STR TUS ; 
000182AA BF 52 D1 00034 CMPFL = STATUS, #98986 ; 
IE if 00038 BNEQ ; 
53 D7 00030 DECL | COUNTER + 0544 
1A 19 0003F BLSS _2$ F 
7E 04 00041 CLRL = = (SP) > 0545 
B2 AF 9F 00043 PUSHAB WAKEDELTA ; 
7E 7C 00046 CLRQ = : 
000000006 00 04 FB 00048 CALLS #4, SYSSSCHOUK : 
D5 50 €9 0004F BLBC ~—_ RO, ; 
000000006 00 00 FB 0005¢ CALLS #0, SYSSHIBER : 
CC 11 0005 BRB 1$ : 
3 52 £9 00058 2$ BLBC STATUS, 3$ + 0547 
50 08 AC DO 0005E MOVL = RECDESC, : 0550 
60 7A A? 3C 00062 MOVZWL MAILS$T _SYSMAIRAB+34, (RO) 5 
04 AO 0080 C7 DO 00066 MOVL MAILST_ SYSMAIRAB+40, 4(RO) ; 0551 
50 52 DO 0006C 3$ MOVL § STATUS> RO : 0553 
04 0006F RET > 0554 


; Routine Size: 112 bytes, Routine Base: S$CODE$ + 0354 


w” 
—< 
74] 
=z 
> 
al 


OPEN/READ/WRITE SYS$SYSTEM:VMSMAIL.DAT 


33 


— ROUTINE MAILSGET_DEVDIR(USERDESC,D 
FUNCTIONAL DESCRIPTION: 


ets the de 
in DEVDIRD 


i This routine vice fue re 
and returns i DESC vi 


AOUMUIUIW 


OoOoocc0co 
FUN OOONAUNE WN OOONOU 


—= 

BEGIN 

MAP 
USERDESC : 
DEVDIRDESC 


REF S$BBLOCK, 
: REF SBBLOCK; 


NAMSC_MAXRSS], 
aryed. 


Pt at at at aaa wae 


WAWIWNRoPoPenofronononofnens | 


WN ODONAULSWN—OWOOo~ 


LOCKE 
F VECTOR 
: RC2,L 
SYSMAIBUF : LOC 


PTR = } RBUF ; 
IF NOT (STATUS = 
THEN RETURN .STA 
ELSE A ny 
= CHSMOVE(. (MAILST_UAF _BUFFCUAFS$T 
(MAILST_UAF _BUFFL 


DIRBU 
CHSMOVE (. (MAILST_UAF BUF FCUAFST 
(MAILST_UAF_BUFFL 


IF MAILEGET SYSMAI oir wie‘ SE aaa 
AND “zy NG] _N 


SMAIBUE VMD_B DIR 
CHSMO over SYSMAIBUF VAD 5°! 
s T FWONARJS 


BUF CVMD_T 
SY SMAIBUFEVMD _B 


AFS$T_DEFDIRI)<CS_S 
] 


ATOR een EOE SE) 


PTR = 


IF .((MAILST var 


LSE PTRC-1 
cf} ° AL - DIRBUF; 


$COPY “ont DEVBIRDESC ,DESC) 
URN TRUE 


| 
: 
: 
: 
2 
2 
: 


ee me ew www fofalelelolelolelelololeloelolololelelololololololo) 


COOOO OOOO OWDWOWOMOOMOMONNN WN 
OWONAUE WN OOONAOUESWNO OONOu 


000 
57 000000006 00 9% 30000 
P] FBB4 =sCCE'Cé#S'E’ OpOE 
5 FFOO §8 CD 9E BOF 

04 AC 0D 0001 
000000006 90 01 . 0016 
C 50 €9 0001D 


16-50 -Sep-1984 


01: +33 717 iss-32 V4.0-742 
4-Sep-1984 12:42:35 ASTER: CMAIL.SRCISYSMAI .B32; ? 


EVDIRDESC) = 


ct fory ge seeersecer for USERNAME 
a STR$ 


KCVMD_ C_LENGTH*+3*NAMSC_MAXRSSJ; 


) 


E NT> 
OA f CS_STRING>, 


OA 


F) 


DEFDEVIJ)< 
FST_DEFD 
EFDIRI)< NT>, 

FST_DEFD S_STRING>,.PTR); 


NGJ-1 
°SYSMALBUECVMD B_FWDLNGJ+ 
-FNMLNGJ+1,.PTR-T); 


TRING>)<0,8> EQL %C'C' 


RAIL seer DEVDIR, Save R2,R3,R4,R5,R6,R7 


MOVAB MAILST_UAF_B UFF R7 
MOVAB -1100(S5P) 

MOVAB DI ROUE Pate” 

PUSHL USERDESC 

CALLS #1, MAILSGET_USER 
BLBC STATUS, 4$ 


ge 
( 


o~— 


~~ 


St ess nesses 


D 16 
MAILSSYSMAI OPEN/READ/WRITE SYSS$SYSTEM: VMSMAIL.DAT 16-Se 1984 Oy: :23: 7 VAX=11 Bliss-32 V4.0-742 
v04-000 14-Sep-1984 12:42:35  DISKSVMSMASTER: cMAiL. SRCISYSMAI.B32; fag 
6 67 90 00 OVL §_ MAILST_UAF_BUFF, R6 
28 74 As BA 09 3 MOVZBL 116 CRGY, RO 
FFOO CD 75 Ab 5 ¢8 0 OVC3 RO, 117(R6), DIRBUF 
50 0094 C6 9A 000 : mOVZBL 148(R6), RO 
63 0095 C6 30 28 000 OVC3 RO, 149(R6), (PTR) 
& DD 00039 PUSHL SP 
04 AC DD 00038 PUSHL USERDESC 
FFI6. CF 0 FB 0 ; CALLS #2, MAILSGET_SYSMAI_REC 
1D 5 E 04 BLBC =—«._«aRO. *X1 
41 AE ; 00046 TSTB SYSMAIBUF+65 
18 13 0004 EOL =Ssésa1S 
51 41 AE 9A 00048 MOVZBL SYSMAIBUF+65, R1 
51 07 OO04F ECL RI 
50 43 AE 9A 00051 MOVZBL SYSMAIBUF+67, RO 
52 42 AE 9A 00055 MOVZBL SYSMAIBUF +66, R2 
50 52 CO 00059 ADDL ¢ Re. R 
FF OA 45 AEGO 51 28 9005¢ MOVC SYSMAIBUF +69CRO3, -1(PTR) 
50 67 DO 00063 1$: MOVL RAUL F BUFF, RO 
58 OF 0095 CO 91 00066 CMPBs«149( CROTS ay 
07 12 0006C BNEQ 2$ 
FF OA 5D «BF 90 OO06E MOVB #93, -1(PTR) 
04 11 0007 BRB 3$ 
FF AB 3E 90 00075 2 MOVB #62, -1(PTR) 
50 FFOO CD H 00079 3$ NOVAB DIRBUF, RO 
FEF8 CD 53 50 ¢3 0007 SUBL3 RO, PTR, DESC 
FEFC CD FFOO CD 9E 00084 MOVAB DIRBUF, DESC+4 
FEF8 CD 9F 0008B PUSHAB DESC 
08 AC DD O008F PUSHL DEVDIRDESC 
000000006 00 02 FB 00092 CALLS #2, STRSCOPY_DX 
50 01 D0 00099 MOVL #1. RO 
04 0009C 4$: RET 


; Routine Size: 157 bytes, Routine Base: S$CODE$S + 034 


Pete Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Se Se Se Fe Be Fe Se Se Se Se Se Se Se Se Be 


; Routine Size: 32 bytes, Routine Base: S$CODE$ + 0461 


16 
MAILSSYSMAI OPEN/READ/WRITE SYSSSYSTEM:VMSMAIL.DAT 1h-90 ep- 1984 01: 23:17 AX-11 Bliss-32 V4.0-742 
v04=000 14-Sep-1984 12:42:35 ISKSVMSMASTER: CMAIL. SRC 
: 4663 0600 1 GLOBAL ROUTINE MAILSGET_NEWMAIL(USERDESC,COUNT) = 
: 464 0601 1 !++ 
: 465 060¢ 1 § FUNCTIONAL DESCRIPTION: 
: 466 0603 1! 
: 467 0604 1! Return the new mail count from VMSMAIL 
> 468 0605 1} 
: 469 0606 1 i-- 
: 470 0607 2 BEGIN 
: 471 0608 
: 47 9609 2 LOCAL 
: 47 0610 PTR : REF $BBLO 
; 4% 9611 SY SMAIBUE Se OBBLOCKLVMD.. C_LENGTH+3*NAMSC_MAXRSS); 
: 476 0618 .COUNT = 0; 
: 477 P0614 2 IF ERR(MAILSGET SYSMAI _REC(.USERDESC,SYSMAIBUF);, 
: 478 0615 2 N TRUE 
: 479 0616 2 
: 480 0617 2 .COUNT = Sccamaeauiitore i padi 
> 481 0618 3 
: 482 0619 2 RETURN TRUE 
> 483 0620 1 END; 
0000 00000 .ENTRY MAILSGET_NEWMAIL, Save nothing 
SE FCBC CE 9€ 00002 MOVAB -836(SP)> SP 
08 BC D4 00007 CLRL T 
5E DD OO00A PUSHL SP 
04 AC DD 0000C PUSHL USERDESC 
FEAS CF 02 FB 0000F CALLS #2, MAILSGET_SYSMAI_REC 
05 50 E9 0014 BLBC TATUS, 1$ 
08 BC 21. AE 3C 00017 MOVZWL SYSMAIBUF+33, @COUNT 
50 01 DO 0001C 1$: MOVL #1, RO 
04 0001F RET 


0600 


0613 
0615 


0617, 
061 J 
0620, 
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DISKSVMSMASTER: CMAIL.SRCISYSMAI .B32;1 


; ret 96 1 : GLOBAL ROUTINE MAILSINCR_NEWMAIL(USERDESC,COUNT) = 

; ret $e § : FUNCTIONAL DESCRIPTION: 

; 489 0625 1! Increment the new mail count of the specified user 
; 490 06 $ 1! 

> 491 06 1 ! Inputs: 

; 49 0628 1! 

; 49 0629 1! Userdesc = address of descriptor of user to update 
3 t3¢ be ? ' COUNT = (optional) address of value to set the count to 
; 496 pos 1 !-- 

; 497 06 

; 498 te: ILTIN 

; 499 0635 ACTUALCOUNT; 

; 500 0636 

; 501 0637 MAP 

; 206 0638 USERDESC : REF S$B8BLOCK; 

s 30 0639 

; 504 0640 § LOCAL 

; 505 0641 PTR : REF SBBL 

: 506 064 2 SYSMAIBUF SBBLOCKLVMD._ C_LENGTH], 

s 307 064 2 DESC : VECTORE2, LONG); 

; 508 0644 § 

; 509 0645 RETURN (IF MAILSGETLK_SYSMAI_REC(.USERDESC ,DESC) 

s 310 0646 4 THEN BEGIN 

e335 0647 4 PTR = .DESCC1); 

; 512 0648 4 IF ACTUAL COUNT) LSSU 2 

s S15 0649 4 THEN al. VMD_W_MAIL] = gt ag -W_MAILJ] + 1 

3; 514 0650 4 ELSE P VMD~W “MAILJ = UNT; 

s 335 0651 4 MAILSUPBATE RSYSMAL~ “REC(.DESC 1]) 

; 516 oti] 4 

s Si7 0653 4 ELSE BEGIN 

; 518 0654 4 CHSFILL(O,VMD_C_LENGTH, SYSMAIBUF ) 

s 519 0655 4 CHSCOPY(. GSERDESC DscSu LENGTH)  -USERDESCLDSCSA_ POINTER], 
s $20 0656 4 VMD YSMAIBUF 

; 321 0657 3 SYSMAIBUF CVMD_W MAIC“ = CF ARE TUALCOUNT() LSSU 2 

s Se 0659 4 ELSE .COUNT); 

; 524 0660 4 MAILSUPDATE_SYSMAI_REC(SYSMAIBUF ) 

; 525 0661 3 END) 

3; 32 0662 1 END; 


007¢ 00000 .ENTRY MAILSINCR_NEWMAIL, Save R2,R3,R4,R5,R6 : 0621 
SE B4 AE 9E 00002 MOVAB -76(SP), SP : 
SE D 0006 PUSHL SP 5 0645 
56 04 AC DO 0000 VL. USERDESC, R6 ; 
56 DD 0000C PUSHL : 
FECO CF Q FB O05 CALLS #2, MAILSGETLK_SYSMAI_REC : 
18 E 001 BLBC =«._«RO,._-3$ : 
5 04 AE b0 6 16 MOVL DESC+4, PTR > 0647 
02 6C 91 OOO1A CMPB (AP), #2 : 0648 
05 1€ 0001D BGEQU§ ‘1$ : 


MAILSSYSMAI OPEN/READ/WRITE SYSSSYSTEM: VMSMAIJL .DAT 
v04-000 
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21 AO B6 O01F INCW 33¢PTR) : 0649 
05 11 00022 BRB 3 : 
21 a0 08 AC 80 90 4 1$ MOVW COUNT, 33(PTR) + 0650 
4 AE OD 9 2$ PUSHL  DESC+4 + 0651 
6 11 0000C BRB 6$ : 
0044 28F 00 6E a 00 2¢ 90 3$ MOVC5 *, (SP), #0, #68, SYSMAIBUF + 0654 
1F 20 04 B6 - 66 2c 00 ? MOVCS (R6), @4(R6), #32, #31, SYSMAIBUF + 0655 
02 6c 91 $09 F CMPB sé AP), #2 + 0657 
05 1€ 00042 BGEQU 4$ F 
50 4 D0 B0044 MOVL #1, RO : 
4 11 00047 BRB 5 : 
50 08 AC 00 00049 4$: MOVL COUNT, RO + 0659 
29 AE 56 BO 00040 5$: MOVW RO, SYSMAIBUF+33 + 0657. 
08 AE 9F 00051 PUSHAB SYSMAIBUF + 0660. 
FBGE CF 07 FB 00054 6$: CALLS #1, MAILSUPDATE_SYSMAI_REC : | 
04 00059 RET + 0662 | 


; Routine Size: 90 bytes, Routine Base: $CODE$ + 0481 


H 16 
OPEN/READ/WRITE SYSSSYSTEM: VMSMAIL.DAT 16-Sep-1984 9}: eat 717 VAX=11 Bliss-32 V4.0-742 


14-Sep-1984 12: DISKSVMSMAS TER: CMAIL.SRCISYSMAL .B32; ? 


c= > $63 } GLOBAL ROUTINE MAILSDECR_NEWMAIL(USERDESC) = 
; , 00? : FUNCTIONAL DESCRIPTION: 

cs ¢ 0667 1! Decrement the new mail count 

‘> 0668 1! 

>; 534 0669 1 !-- 

t foe 0670 BEGIN 

:; 536 0671 

s 5357 067 Pp 

; 538 067 USERDESC : REF S$BBLOCK; 

; 539 0674 

; 540 0675 LOCAL 

s 94) 0676 PTR : REF $BBL 

; 34¢ 0677 RECDESC : VECTORS? LONG); 

> 544 0679 ; IF MAILSGETLK_SYSMAI_REC(.USERDESC ,RECDESC) 
; 545 0680 THEN B 

; 546 0681 ; PTR = .RECDESC(1); 

s $67 0682 IF -PTREVAD W MAL Rig. 0 

: 548 0683 3 PTREUMD.WMAILD = .PTRCVM DW MAIL] = 1; 
3; 549 0684 3 MAILSUBDATE “SYSMAI- “RECT. RECDESC scCi) 

; 550 0685 2 END; 

s 951 0686 2 

3 Soe 0687 2 RETURN TRUE 

; 553 0688 1 END; 


0000 00000 -ENTRY MAILSDECR_NEWMAIL, Save nothing 
5E 08 C2 000 be SUBL2 #8, SP 
5E 0D 0000 PUSHL 
04 AC 0D 00007 PUSHL USERDESC 
FE6A CF 02 FB OOO0A CALLS #2, MAILSGETLK_SYSMAI_REC 
14 50 £9 OO00F BLBC RO, 
50 04 AE DO 00012 MOVL REL BESCes. PTR 
21 AO B85 00016 TSTW 33(PTR) 
03 13 00019 BEQL 
21 AO 87 00018 DECW 33(PTR) 
04 AE DD OOOIE 18: PUSHL  RECDESC+4 
FB27 Ss CF 01 FB 00021 CALLS #1, MAILSUPDATE_SYSMAI_REC 
50 01 B? 80058 2$: MOVL #1, RO 
4 00029 RET 


; Routine Size: 42 bytes, Routine Base: $CODE$ + 04DB 


9195 


0663 
0679 


0681. 
0682 


0683 
0684 © 


0687 
0688 
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: 866 0690 0 ELUDOM 
LEXTRN LIBSSIGNAL 


Name Bytes Attributes 


SGLOBALS 156 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 1285 NOVEC.NOWRT, RD » _EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SOWNS 352 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; Library Statistics 

See ee eee ee Symbols e----e--- Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$0UA28: CSYSLIBILIB.L32;1 18619 180 0 1000 00:01.4 

: ~$255$DUA28:CMAIL. OBJ JMAILDEF .L22;1 457 10 2 26 00:00.4 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SYSMAI/OBJ=OBJ$:SYSMAI MSRC$:SYSMAI/UPDATE=(ENHS:SYSMAI ) 

: Size: 1235 code + 558 data bytes 

; Run Time: 00:19.9 

; Elapsed Time: 01:22.9 

3; Lines/CPY Min: 081 

3; Lexemes/CPU-Min: 47453 

3 f Used: 236 pages 

; Compilation Complete 
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